home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
TEMPFILE.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
942b
|
32 lines
;******************************************************************
;* TEMPFILE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
.MODEL TPASCAL
LOCALS
NameOfs Equ 48
.DATA
EXTRN InOutRes:Word
.CODE
PUBLIC MakeTempFile
MakeTempFile Proc FAR F:DWord
PUSH DS
LDS DX, F
ADD DX, NameOfs
MOV AH,5AH
MOV CX,20H
INT 21H
POP DS
JC @@Error
MOV BX,AX
MOV AH,3EH
INT 21H
JNC @@Exit
@@Error: MOV InOutRes,AX
@@Exit: RET
ENDP
END